VARIABLE /DSIG;
ARRAY R1[1280],R2[1280],R3[1280],R4[1280],R5[1280],R6[1280];

COMMENT: Sum of delay memory sizes = 7680
	 Reverberation time = 1.20 seconds
	 Clock rate = 25600
	 Distance to first reflector = 8.57 meters;

INSTRUMENT ALLPASS;
I_ONLY
    BEGIN
	PRINT "   ALLPASS REVERB ";
	REVINIT←1;
	IF
	    SRATE ≠ 25600
	 THEN
	    PRINT "
WARNING: SRATE does not match reverberator rate. ";
    END;

REV2(DSIG,1279, .750,R1);
REV2(U1,1279, .750,R2);
REV2(U2,1279, .750,R3);
REV2(U3,1279, .750,R4);
REV2(U4,1279, .750,R5);
REV2(U5,1279, .750,R6);
OUTA ← OUTA+U6*5.619;
DSIG←0;
END;